object FormBloqueoDirs: TFormBloqueoDirs Tag = 65500 Left = 308 Top = 224 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle Caption = 'Bloqueo de direcciones' ClientHeight = 384 ClientWidth = 414 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label5: TLabel Tag = 65500 Left = 14 Top = 14 Width = 111 Height = 13 Caption = 'Bloqueo de direcciones' end object PandaBrown13: TPandaBrown Left = 14 Top = 35 Width = 32 Height = 32 TheBrown.Data = { 76020000424D7602000000000000760000002800000020000000200000000100 04000000000000020000120B0000120B00001000000000000000FFFFFF0000FF FF00FF00FF000000FF00C0C0C00080808000008080008000800000008000FFFF 000000FF00008080000000800000FF00000080000000000000002222222FFFFF FFFFFFFFFFFFFFFF2222222222254444444444444444444F2222222222250001 001001010101014F2222222222250000000000000010104F2222222222250000 0101001015FFFF5F222222222225000000000005FFDDEEFF5222222222250000 0001015CCCDBDEECF522222222250000000000CCACCDBDCCCF22222222250000 000005C4ACBBDBCACF5222222225000000000CCCC9BBBDC4CCF2222222250000 0000059B9B9BBBDAACF222222225000000000599B9B9BBDC4CF2222222250000 0000050DCDDBBBBDCCF2222222250000000005DCCCCDBBBBDE52222222250000 000000C4ACCCDBBBDE222255555555555500005C4ACCCDBBE5222FFFFFFFFFFF FF550005CC4ACCCE522261111111111111F5000005CCCC5F2222611111FF1111 14F000000000014F2222261111FF11111F5000000000004F2222261111111111 4F0000000044444F2222226111FF1111F5000000005FFFFF2222226111FF1114 F0000000005045F22222222611FF111F5000000000545F222222222611FF114F 000000000055F2222222222261FF11F500000000005F222222222222611114F5 55555555555222222222222226111F5222222222222222222222222226114F22 2222222222222222222222222261F5222222222222222222222222222261F222 2222222222222222222222222226222222222222222222222222} end object Label19: TLabel Tag = 65600 Left = 58 Top = 35 Width = 347 Height = 57 AutoSize = False Caption = 'Indica las direcciones a las que deseas impedir el acceso. Puede' + 's especificar la direcci�n en notaci�n decimal (192.168.2.76) o ' + 'como nombre (www.pandasoftware.es).' WordWrap = True end object Bevel16: TBevel Left = 136 Top = 20 Width = 269 Height = 3 Shape = bsTopLine end object Label1: TLabel Tag = 70000 Left = 60 Top = 102 Width = 241 Height = 13 AutoSize = False Caption = 'Agregar esta direcci�n:' end object LVDir: TListView Tag = 66700 Left = 58 Top = 159 Width = 243 Height = 151 HelpContext = 27 ColumnClick = False Columns = < item Caption = 'Direcciones a bloquear' Width = 239 end> ReadOnly = True HideSelection = False RowSelect = True TabOrder = 0 ViewStyle = vsReport end object Edit1: TEdit Left = 58 Top = 119 Width = 243 Height = 21 HelpContext = 26 MaxLength = 100 TabOrder = 1 OnChange = Edit1Change OnKeyDown = Edit1KeyDown end object ButtonEliminarDirectorio: TButton Tag = 4700 Left = 316 Top = 159 Width = 90 Height = 22 HelpContext = 29 Caption = 'Eliminar' TabOrder = 2 OnClick = ButtonEliminarDirectorioClick end object ButtonAceptar: TButton Tag = 2200 Left = 214 Top = 353 Width = 90 Height = 22 Caption = '&Aceptar' ModalResult = 1 TabOrder = 3 OnClick = ButtonAceptarClick end object ButtonCancel: TButton Tag = 2400 Left = 316 Top = 353 Width = 90 Height = 22 Cancel = True Caption = '&Cancelar' ModalResult = 2 TabOrder = 4 end object CBPreguntar: TCheckBox Tag = 66600 Left = 58 Top = 322 Width = 347 Height = 17 HelpContext = 25 Caption = 'Preguntar por acci�n a realizar en caso de bloqueo' TabOrder = 5 end object ButtonLimpiar: TButton Tag = 18800 Left = 316 Top = 188 Width = 90 Height = 22 HelpContext = 30 Caption = '&Limpiar Lista' TabOrder = 6 OnClick = ButtonLimpiarClick end object SpeedButtonAddDirectorio: TButton Tag = 4600 Left = 316 Top = 119 Width = 90 Height = 22 HelpContext = 28 Caption = 'A�adir' TabOrder = 7 OnClick = SpeedButtonAddDirectorioClick end object ManuForm1: TManuForm Enabled = False TitleBar.ApplicationInfo.FontStyle = [fsBold] TitleBar.Color = clMaroon TitleBar.CompanyInfo.FontStyle = [fsBold, fsItalic] TitleBar.NbOfColors = 0 Left = 470 Top = 4 end end